home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / modula2f.zip / WINDTEST.MOD < prev   
Text File  |  1992-07-02  |  958b  |  30 lines
  1. MODULE Test;
  2.  
  3. FROM Screen IMPORT GetPosition, GetChar;
  4. FROM Windows IMPORT Window, MakeWindow, PutWindow, Clw, WWriteCard, WWriteLn,
  5.                     RemoveWindow, ScrollUp, ScrollDown;
  6. FROM Text IMPORT Cls, Color, SetCursor, WriteString, GetKey;
  7.  
  8. VAR w:Window;
  9.     c,x:CHAR;
  10.     h,v,f,b:CARDINAL;
  11.  
  12. BEGIN
  13.     Color(14,3);
  14.     Cls;
  15.     SetCursor(5,0);
  16.     WriteString('This is a test of screen saving');
  17.     MakeWindow(3,3,10,20,14,1,'Test window',w);
  18.     PutWindow(w);
  19.     GetPosition(v,h);
  20.     WWriteCard(v,3); WWriteCard(h,3); WWriteLn;
  21.     GetChar(c,f,b);
  22.     WWriteCard(f,3); WWriteCard(b,3); WWriteLn;
  23.     GetKey(c,x);            (* wait for a key to be pressed *)
  24.     ScrollDown(3);
  25.     GetKey(c,x);            (* wait for a key to be pressed *)
  26.     ScrollUp(3);
  27.     GetKey(c,x);            (* wait for a key to be pressed *)
  28.     RemoveWindow(w);
  29.     GetKey(c,x);            (* wait for a key to be pressed *)
  30. END Test.